Aminet 34/Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso/Aminet/comm/irc/cybershiela.lha/cs/cs_where.amirx

Text File | 1999-09-26 | 2KB | 45 lines

/* CyberShiela MultiResponse File */
nick=getclip('NICK')
xx=random(1,31,time('s'))
select
when xx=1 then a="In bed."
when xx=2 then a="Outside."
when xx=3 then a="Inside."
when xx=4 then a="In Minnesota."
when xx=5 then a="In New York."
when xx=6 then a="In Seattle."
when xx=7 then a="In Sydney, Australia."
when xx=8 then a="Next to your best friend."
when xx=9 then a="Beside your worst enemy."
when xx=10 then a="At home."
when xx=11 then a="At work."
when xx=12 then a="At a bowling alley."
when xx=13 then a="At a golf course."
when xx=14 then a="At a sports arena."
when xx=15 then a="Under the bed."
when xx=16 then a="In the street."
when xx=17 then a="In your friend's car."
when xx=18 then a="In the back seat of a car."
when xx=19 then a="In a doorway."
when xx=20 then a="At your computer terminal."
when xx=21 then a="In a chair."
when xx=22 then a="At the dinner table."
when xx=23 then a="In the refrigerator."
when xx=24 then a="At your friend's house."
when xx=25 then a="Sitting on the lap of someone you love."
when xx=26 then a="On your great-great-great-great grandfather's grave."
when xx=27 then a="At Disneyworld."
when xx=28 then a="At McDonald's."
when xx=29 then a="In the restroom."
when xx=30 then a="In the bathtub."
when xx=31 then a="In the shower."
end
modif:
user=nick
old=a
m=length(user);temp=a;x=pos("$1",temp);if x~=0 then do;temp2 = delstr(temp,x,2);old = insert(user,temp2,x-1,m," ");end
temp=old;m=length(channam);x=pos("$chan",temp);if x~=0 then do;temp2 = delstr(temp,x,5);old = insert(channam,temp2,x-1,m," ");end
a=old
'say 'A
exit